home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DPMI_UTL / REALIN / PTRSCR.PAS next >
Pascal/Delphi Source File  |  1992-03-09  |  735b  |  33 lines
  1.  
  2.  
  3.  
  4. {Test the SimRMI unit. Simulates a call to real mode interrupt 05h to print the
  5. screen using the 'print screen' key routine.
  6.  
  7. Running this program has the same effect as hitting the PrtScr key in DOS.
  8. Needs to be running in a 'standard' video mode (eg VGA) with the correct printer
  9. set up in DOS using GRAPHICS.
  10.  
  11. It is assumed that Windows is running in protected mode.
  12.  
  13. Rex K. Perkins, CIS 70651,1611
  14.  
  15.  
  16. 6th March 1992
  17.  
  18. }
  19.  
  20.  
  21. Program SimScr;
  22.  
  23. Uses SimRMI;
  24.  
  25. Const IntVec=05; {Call this interrupt}
  26.  
  27.  
  28. Begin
  29.   If CheckISRInstalled(IntVec) Then       {If there is an interrupt handler installed...}
  30.     SimRealModeInt(IntVec,@DontCareRMR)   {..call it. We don't care what the registers, so zero them}
  31. End.
  32.  
  33.